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1. Introduction 

L’informatique est la science du traitement automatique de l’infonnation. Pour cela : 

1 . il faut modeliser cede information, 

2. dcfinir a l’aide d’un formalisme strict les traitements dont elle fera l’objet, 

3. traduire ces traitements dans un langage comprehensible par un ordinateur. 

Les deux points 1 et 2 precedents relevent de V algorithm que. Le 3 eme point concerne ce que 
l’on nomine la programmation. 

1.1 L’algorithmique 

L’algorithmique est un tenne d’origine arabe, hommage a A1 Khawarizmi 

> Une recette de cuisine est un algori thine! 

> Le mode d’emploi d’un magnetoscope est aussi un algorithme! 

> indique un chemin a un touriste egare ou faire chercher un objet a quelqu’un par 
telephone c’est fabriquer - et faire executer - des algori thmes. 

Un algorithme, c’est une suite d’ instructions, qui une fois executee correctement, conduit a un 
resultat donne. 

> Si l’algorithme est juste, le resultat est le resultat voulu, et le touriste se retrouve la ou 
il voulait aller. 

> Si l’algorithme est faux, le resultat est, disons, aleatoire, et decidement, ce 
magnetoscope ne marche pas! ! 

Pour fonctionner, un algorithme doit done contenir uniquement des instructions 
comprehensibles par 1’ ordinateur. 

Remarque : 

L’ADN, qui est en quelque sorte le programme genetique, l’algorithme a la base de 
construction des etres vivants, est une chaine construite a partir de quatre elements 
invariables. Ce n’est que le nombre de ces elements, et l’ordre dans lequel ils sont arranges, 
qui vont determiner si on obtient une puce ou un elephant. 

Les ordinateurs eux-memes ne sont fondamentalement capables d’ executer que quatre 
operations logiques : 

o 1’ affectation de variables 
o la lecture / ecriture 
o les tests 
o les boucles 

Un algorithme informatique se ramene done toujours au bout du compte a la combinaison de 
ces quatre petites briques de base. Il peut y en avoir quelques unes, quelques dizaines, et 
jusqu’a plusieurs centaines de milliers dans certains programmes. 

La taille d’un algorithme ne conditionne pas en soi sa complexity : de longs algorithmes 
peuvent etre finalenient assez simples, et de petits algorithmes peuvent etre tres compliques. 

1.2 La programmation 

Un ordinateur est une machine construite pour executer de maniere sequentielle des fonctions 
primitives telles que les calculs arithmetique, les affectations de variables, des testes, des 
boucles des entree-sortie, etc. On obtient des traitements plus complexes (comnie 1’ extraction 
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d’une racine carree par exemple) en combinant ces operations entre elles dans un ordre 
convenable. Comme la vitesse de l’ordinateur est tres grande, il n’est pas possible de lui 
donner des ordres au fur et a mesure de l’avancement du travail, comme on le fait avec une 
calculette : il faut d’abord dresser la liste des instructions auxquelles la machine devra obeir, 
dans l’ordre de leur execution. C’est ce qu’on appelle un programme. On charge ensuite ce 
programme dans la memoire de la machine, ou elle puisera les instructions au fur et a mesure 
de leur execution, a sa propre vitesse. 

Un programme est la traduction d’un algorithme dans un langage de programmation. 

La premiere difficulty sera d’ adapter notre raisonnement humain a la logique de 
fonctionnement de l’ordinateur. Il faudra etre suffisamment precis pour que la machine puisse 
executer la tache. 

Exemple : on veut echanger le contenu de deux cellules memoires qu’on appellera A et B. 
La premiere idee qui consiste a dire "je mets le contenu de A dans B et celui de B dans A" 
aboutirai a ce que A et B contiendraient les memes valeurs, ce n’est pas le resultat souhaite. 
Le probleme est done un peu plus complexe puisqu’il il faut d’abord sauvegarder le contenu 
de B dans une cellule C, recopier le contenu de A dans celui de B puis restaurer le contenu de 
C dans la cellule A. 

1.3 Les langages programmation 

On classe les langages de programmation en "generations". La premiere generation regroupe 
les langages machine, le seconde les langages d’assemblages et la troisieme les langages 
evolues. 

1.3.1 Les langages de bas niveau 

Le langage machine : Les instructions stockees dans la memoire de l’ordinateur sont 
representees sous la forme de chaines de chiffres binaires, elles sont executees par l’unite de 
traitement. On dit qu’elles sont exprimees en langage machine. Le langage machine constitue 
le seul langage reellement "compris" par l’ordinateur. 


Exemple : 
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o Le premier octet (8 bits) signifie le nombre 90 = 5 Ai 6 (hexadecimal) qui est le code 
operatoire de 1’ addition a un registre, 

o les quatre bits suivants signifient le nombre 3 qui est le numero de registre, 
o les 20 bits restant signifient 517 = 205 16 (hexadecimal) qui l’adresse de l’operande. 
Cette instruction en langage machine signifie "additionner au contenu du registre 3 le contenu 
du mot d’adresse 517". 

Cette programmation, lente et fastidieuse, etait source de nombreuses erreurs. Elle n’est 
utilisee aujourd’hui que dans quelques cas bien particuliers. 
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Les langages d’assemblage ont pennis Tecriture des instructions du langage machine 
sous fonne symbolique ; la traduction en binaire est assuree par un programme, foumi par le 
constructeur, appele assembleur. 

Les langages d’assemblage sont des langages de programmation les plus proche du langage 
machine, ou chaque instruction correspond a une instruction machine unique. Toutefois un tel 
langage est tellement proche du langage machine qu’il depend etroitement du type de 
processeur utilise (chaque type de processeur peut avoir son propre langage machine). Ainsi 
un programme developpe pour une machine ne pourra pas etre porte sur un autre type de 
machine (on designe par le terme "portable" un programme qui peut etre utilise sur un grand 
nombre de machines). Pour pouvoir l'utiliser sur une autre machine il faudra alors parfois 
reecrire entierement le programme! 

Bien qu’ils introduisent certains allegements ils ne resolvent pas le probleme de portabilite 
(un programme ecrit sur une machine ne marche pas sur une autre machine, le programme 
depend du processeur). 

Cependant les langages d’assemblage sont encore utilises aujourd’hui dans quelques cas : 
o Quand la vitesse d’ execution est primordiale, 
o Pour acceder directement a certains peripheriques, 
o Pour etudier les differentes types d’architecture des ordinateurs. 

Pour remedier aux inconvenients des langages d’assemblage, on a cree des langages dites 
evolues, ecrits avec l’alphabet usuel proche du langage humain. 

1.3.2 Les langages de haut niveau 

L'assembleur est le premier langage informatique qui ait ete utilise. Celui-ci est encore tres 
proche du langage machine mais il permet deja d’etre plus comprehensible. Toutefois un tel 
langage est tellement proche du langage machine qu’il depend etroitement du type de 
processeur utilise (chaque type de processeur peut avoir son propre langage machine). Ainsi 
un programme developpe pour une machine ne pourra pas etre porte sur un autre type de 
machine (on designe par le terme "portable" un programme qui peut etre utilise sur un grand 
nombre de machines). Pour pouvoir l'utiliser sur une autre machine il faudra alors parfois 
reecrire entierement le programme! 

Un langage informatique a done plusieurs avantages: 

o il est plus facilement comprehensible que le langage machine 
o il permet une plus grande portabilite, e'est-a-dire une plus grande facilite d’adaptation 
sur des machines de types differents 

Un langage de haut niveau sert nous epargner la programmation en binaire. C’est pourquoi 
tout langage, a partir d’un programme ecrit, doit obligatoirement proceder a une traduction en 
langage machine pour que ce programme soit executable. 

Il existe deux strategies de traduction, ces deux strategies etant parfois disponibles au sein du 
meme langage. 

Le langage traduit les instructions au fur et a mesure qu’elles se presentent. Cela s’appelle la 

compilation a la volee, ou Interpretation. 

Le langage commence par traduire T ensemble du programme en langage machine, constituant 
ainsi un deuxieme programme (un deuxieme fichier) distinct physiquement et logiquement du 
premier. Ensuite, et ensuite seulement, il execute ce second programme. Cela s’appelle la 

compilation. 
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II va de soi qu’un langage interprete est plus maniable : on peut executer directement son code 
au fur et a mesure qu’on le tape, sans passer a chaque fois par l’etape supplemental de la 
compilation. Mais il va aussi de soi qu’un programme compile s’execute beaucoup plus 
rapidement qu’un programme interprete : le gain est couramment d’un facteur 10, voire 20 ou 
plus. 

Toute application destinee a un usage professionnel (logiciel par exemple) est forcement une 
application compilee. 

Quelques exemples de langages couramment utilises 


Langage 

Domaine d'application principal 

Compile / interprete 

MAPLE 

Calcul mathematique 

langage interprete 

MATLAB 

Calcul mathematique 

langage interprete 

Mathematica 

Calcul mathematique 

langage interprete 

BASIC 

Comme son nom l’indique... 

langage interprete 

Prolog 

Intelligence artificielle 

langage interprete 

Java 

Programmation orientee internet 

langage intermediaire 

LISP 

Intelligence artificielle 

langage intermediaire 

C 

Programmation systeme 

langage compile 

C++ 

Programmation systeme objet 

langage compile 

Cobol 

Gestion 

langage compile 

Fortran 

Calcul 

langage compile 

Pascal 

Enseignement 

langage compile 


2. Le langage de programmation Maple 

2.1 Generality 

2.1.1 Qu’est ce que Maple ? 

Maple est un logiciel de mathematiques developpe par des chercheurs de l’universite de 
Waterloo au Canada et de l’universite ETH de Zurich. II se distingue par la puissance de son 
calcul symbolique, numerique et par la representation graphique des resultats. 

C’est un logiciel destine aux scientifiques, ingenieurs, etudiants possedant un bon niveau 
mathematique. 

Ce logiciel fait des merveilles dans le calcul a tres haute precision, la resolution d’ equations 
reelles, imaginaires, differentielles, integrates, etc. 

Le module graphique de base de Maple permet le changement de couleur discontinu et les 
changements dynamiques des points de vue de graphiques, Cette demiere caracteristique 
pouvant etre tres interessante pour visualiser les surfaces et volumes en 3D. 

Maple est un langage interprete, contrairement a Pascal et Fortran qui sont des langages 
compiles. Ca veut tout simplement dire que Maple est un interlocuteur toujours attentif et pret 
a reagir a vos "paroles", sans passer par des etapes intermediaires comme la compilation et 
l'etablissement des liens (linking). On peut comparer les echanges avec un interpreteur a une 
conversation telephonique, tandis que les compilateurs ressemblent davantage a un service 
postal: ecrire la lettre, puis l'affranchir, puis... La conversation telephonique se construit a 
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mesure, au fil des interactions et elle est largement improvisee. La lettre se compose en 
l’absence du destinataire et les reactions viendront... plus tard. 

Bref, les interpreters sont des outils interactifs. Cette interactivity pousse rapidement a 
essayer des choses, juste pour voir ce que ca donne. Si vous faites une "erreur", elle ne pourra 
jamais etre grave... meme qu'elle pourrait tres bien vous conduire sur des voies d'exploration 
que vous n’aviez meme pas soupconnecs au depart. 

D’autres produits analogues a Maple existent, notamment Derive, Mathematica, ou MuPad. 
Derive est un produit beaucoup plus simple que Maple et bien moins puissant, mais il 
demande pour fonctionner des configurations moins evoluees que ses deux concurrents. 
Mathematica est tres puissant mais aussi tres novateur : une syntaxe un peu contraignante, 
ainsi qu’une prise en main plus difficile le rendent moins facile a manipuler que Maple. 

MuPad est developpe par l’universite de Paderborn en Allemagne. II est maintenant muni 
d’une interface graphique developpee en collaboration avec la societe sciform. Ses 
performances sont comparables a celles de Maple et son prix est tres attractif. On peut meme 
en telecharger une version light gratuite. 

2.1.2 Quelques generalites : 

Une session de travail Maple commence evidemment par le lancement du logiciel en double 
cliquant sur l’icone correspondante. Une “feuille de travail” (worksheet) vide est alors 
affichee a l’ecran, et Maple est pret a travailler en mode interactif : on lui donne des 
instructions au clavier, que l’on valide par la touche Entree, et il y repond de maniere 
appropriee. 

A tout moment, on peut fermer la feuille de travail, apres avoir eventuellement sauvegarde 
son contenu. 

On peut egalement charger une feuille de travail deja sauvegardee, notamment celles qui 
accompagnent le logiciel et contenant des exemples d’utilisation. 

On peut quitter Maple par l’une des instructions quit, done, stop. Le plus souvent cependant 
on selectionne l’option Exit du menu File, ou avec la combinaison de touches Alt+F4. 

Si on a modifie la feuille de travail depuis la derniere sauvegarde, Maple propose alors une 
sauvegarde ; on repondra par la negative pour les feuilles constitutes d’exemples d’utilisation 
ou d’ explications, et qui font partie du produit Maple. 

Les connaissances de Maple ne sont chargees en memo ire qu’au fur et a mesure des besoins 
de l’utilisateur. Seule une faible partie, le noyau (kernel), est charge des le depart. La plus 
grande partie du savoir de Maple reside dans sa librairie (library). Quand l’utilisateur emploie, 
pour la premiere fois depuis le chargement du logiciel, une instruction figurant dans la 
librairie, les connaissances relatives a cette instruction sont chargees automatiquement en 
memoire et y restent pour toute la duree de la session, sauf redemarrage par restart. 

Un autre gisement de connaissances reside dans les packages, qui sont des regroupements de 
nouvelles fonctionnalites (fonctions, variables, textes d’aide et explications) lies a un domaine 
donne. Plusieurs packages font partie integrante du logiciel, a titre d’exemple, voici certains 
modules avec le sujet traite: 

Plots : Representation graphiques 
Linalg : Algebre lineaire 

Detools : Outils pour les Equations Differentielles 
Powseries : Series formelles. 

Inttrans : Transformation integrates : Laplace, Fourier. 

Stats : Statistiques. 

Pour la liste complete des modules, taper: [> ?index, package; 
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Si on veut, par exemple, travailler avec les matrices et les vecteurs, il est necessaire 
d'introduire le module d’Algebre lineaire du nom de linalg et cela, preferablement apres la 
commande restart. 

> restart; 

with (linalg) ; 

Cette derniere commande affichera une serie de commande pour traiter un grand nombre de 
notion d’Algebre lineaire. Si on ne veut pas l’affichage de toutes les commandes, on remplace 
; par : dans with(linalg); 

On peut creer ses propres packages, mais cela demande une bonne connaissance du logiciel. 
Enfin on peut profiter des travaux realises par de nombreux utilisateurs experiments de 
Maple en chargeant en memoire les packages ou feuilles de travail du repertoire examples. 

2.1.3 Les icones les plus utiles 

Maple met a votre disposition plusieurs boutons vous pennettant de lancer efficacement 
certaines des operations non mathematiques les plus frequentes. Ils sont tous tres faciles 
d'utilisation et il vous suffira d’experimenter un peu pour en apprendre rapidement l'usage. 
Nous nous contenterons done d’attirer votre attention sur l’existence de certains de ces petits 
outils et d’emettre quelques brefs commentaires. 

Bouton d'interruption: stop 

Vous voudrez parfois arreter Maple en plein calcul parce que ca prend trop de temps ou parce 
que vous realisez soudainement que vous lui avez demande l'impossible. En ce cas, cliquez 
immediatement sur l’icone stop. 

Bouton de sauvegarde du document: Save 

La sauvegarde de documents (worksheet) est evidemment fondamentale. Pour effectuer cette 
operation, il vous suffira de derouler le menu File, de faire glisser le curseur jusqu'a Save, 
puis de relacher la souris. Un menu vous apparaitra si vous sauvegardez ce document pour la 
premiere fois. 

Bouton d'impression du document: Print 

Les documents Maple peuvent servir a construire du materiel imprime (travaux, notes de 
cours,...). Le bouton d’impression Print se trouve dans le menu File et il est actionne de la 
meme facon que le bouton de sauvegarde. 

Autres 

Vous observerez la presence de nombreux autres icones et menus sur les barres d’outils. 
Plusieurs servent a "traiter du texte": copier, coller, effacer, changer le caractere, etc. Trois 
icones situes au centre de la barre superieure servent a creer des zones d’entrees de texte- 
commentaire ou de commandes Maple. Un bouton voisin (en fonne de fleche pointant vers 
l'arriere) est utilise comine touche d’effacement (DEL). Pour le reste, il vous suffira de cliquer 
ici et la et de voir ce que ?a donne. 

2.1.4 L’utilisation du help 

L’utilisation de Maple demande de se conformer a une syntaxe assez stricte. 

D’autre part il n’est pas facile de retenir le nom des centaines d’ instructions disponibles, ainsi 
que la maniere dont il faut les employer. 
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C’est pourquoi Maple est livre avec un systeme d’aide tres complet. 

Pour obtenir une aide sur une instruction dont on connait le nom, coniine par exemple expand, 
on peut proceder de plusieurs manieres : 

- ? expand (suivi de Entree) affiche l’ecran d’aide complet sur cette instruction. 

- ? ? expand affiche la syntaxe : comment appeler expand, et avec quels parametres. 

- ? ? ?expand affiche des exemples d’utilisation de l’instruction expand. 

On peut egalement obtenir des aides sur des sujets entiers. Le mieux est alors de passer par le 
menu Help, ou d’utiliser la raccourcis-clavier indiquer dans ce menu : 

- Browser (FI) : Un systeme hierarchise vous permet d’ explorer toutes les possibilites du 
moteur algebrique de Maple, et en particulier de retrouver ou de decouvrir les instructions qui 
correspondent a un sujet particulier. 

- Interface Help (Shift+Fl) : Ce systeme d’aide renseigne sur l’interface utilisateur (fenetres, 
menus, icones, utilisation de la souris, etc.) 

- Key Word Search (Shift+F2) : Ce systeme vous permet d’obtenir une aide sur un sujet 
particulier ou plus general, a partir d’un mot que vous etes invite a taper au clavier. 

Maple affiche alors tous les sujets qui peuvent se rapporter a ce critere de recherche. 

II vous reste a choisir celui qui vous interesse, mais attention : Maple parle anglais ! 

- Enfin Ctrl+Fl propose une aide contextuelle, c’est-a-dire relative a la position du curseur : 
si celui-ci se trouve sur le mot expand, l’ecran d’aide correspondant est affiche. 

2.1.5 Objets et Syntaxe sous Maple 

Caracteres speciaux. Ils serviront a gerer votre conversation avec Maple. Ils ne font pas 
partie des commandes au sens strict. Le tableau suivant enumere ces "meta-caracteres". 


Qui? 

signe 

signifte 

Maple 

> 

Je suis a l'ecoute 


syntax error 

Je ne comprends pas 

Vous 

• 

J'ai termine et je veux que tu afftches la reponse 


• 

• 

J'ai termine et je ne veux pas que tu affiches la reponse 


% 

Prends le resultat precedent | 


%% 

Prends l'avant-demier resultat 


? sujet 

information a-propos de... 


# 

J'inscris un commentaire 


Constantes. Entre autres, il est capable de reconnaitre des constantes de differents types : 

Entier. Exemple : 5, 2,... 

Fraction. Exemple : 1/5, 11/10, ... 

Decimal. Exemple : 2., 3.65, ... 

Symbolique. Exemple : Pi, I, E, infinity ... 
des listes. Exemple : [1, 17, 5, 1] 
des ensembles. Exemple : {1, 2, a} 
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Nombres differents. Pour Maple les nombres 1/5 et 0.2 ne sont pas identiques. Cette 
distinction peut vous paraitre un peu ennuyeuse, mais elle vous permettra, entre autres choses, 
d'ecrire exactement 1/3 et d’effectuer des calculs sans aucune erreur d'arrondi sur des entiers 
et des fractions. 

Pourquoi ne pas ecrire 22/7 plutot que le symbole Pi? Parce que vous pouvez calculer 
tranquillement avec Pi ... sans erreur. Si, une fois vos calculs termines, vous voulez numeriser 
(decimaux), vous pouvez le faire avec toute la precision que vous desirez. Pour effectuer 
revaluation numerique il suffit d'employer la commande evalf. 

Arithmetique. Maple connait evidemment les operations arithmetiques. II interprete les +, 

/ de la meme fag on que vous et moi 

Fonctions mathematiques. Le nombre de fonctions mathematiques que Maple reconnait est 
tres considerable. En voici un tout petit echantillon : (sin, sqrt, exp, abs, In, signum) 

Calcul. Maple sait deriver, integrer, prendre la limite, developper une fonction en serie, 
resoudre des equations differentielles, etc. 

Algebre lineaire. Maple est particulierement doue pour l’algebre lineaire : addition, 
multiplication, inversion de matrices, produits scalaire et vectoriel, determinant, transposee, 
resolution de systemes, valeurs propres, base, espace des colonnes, orthogonalisation, ... 

Bien Plus. Maple pennet aussi de faire des statistiques, de la theorie des nombres, des 
graphes, et j’en passe beaucoup. En fait, le savoir mathematique de Maple est en constante 
evolution. 


2.1.6 Quelques fonctions interessantes de Maple : 


sum 

ifactor 

solve 

diff 

dsolve 

plot 

fsolve 

rsolve 

int 

matrix 

eigenvals 

series 

limit 


: pour calculer des sommes 

: pour factoriser en produit d’entiers 

: pour resoudre une ou plusieurs equations 

: pour deriver, differencier 

: pour resoudre des equations differentielles 

: pour tracer des courbes ou des solutions d’ED 

: pour resoudre numeriquement les equations 

: pour resoudre des equations de recurrence 

: pour integrer des fonctions 
: pour definir une matrice 
: pour calculer des valeurs propres 
: pour calculer la serie de Taylor 
: pour evaluer une limite 


2.1.7 Commandes de base 
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Description 

Exemple 

Sortie 

Maple 

Cowwentaires 

Note 

» 

[>3+4; 

1 

Execute et affiche le 
resultat 



[ > 3+4 : 


Execute la 
commande mais 
n' affiche pas le 
resultat 



[ > a :=cos( 5*Pi); 
[> b := a / 2.5; 

a := -1 
b:= -.4 

C’est ce que I on 
appelle une 
affectation 


evalf 

[ >A:=evalf(7/3); 
[>A:= evalf(7 3, 4); 

A :=2.3333 
A :=2.333 

E value sous forme 
decimale 

Evalue avec 4 
chiffres 


restart 

[ > restart; 


re-imtialise la feuille 
de travail 

Se place au debut de 
la feuille de travail. 

simplify 

[>simplify(cos(B) A 2 

+sin(B) A 2); 

1 

Pour faire des 
simplifications 


lhs 

[>eq:=3*sin(B)=cos(B) : 
[ > rhs(eq); 

cos(B) 

rhs : abreviation du 
mot anglais right- 
hand- side 

Permet de prendre le 
membre de droite 
d'une expression 

Ills 

[>eq:=3*sin(B)=cos(B): 
[ > llis(eq); 

3 sm(B) 

lhs : abreviation du 
mot anglais left- 
hand- side 

Pennet de prendre le 
membre de gauche 
d'une expression 

solve 

[>solution:=solve(3*x=6, x ); 

solutions 

x=2 

Pour resoudre une 
equation 


int 

[>res : =int(sin(x), x=-Pi. . Pi) ; 

res:= 0 

Pour integrer 


diff 

[>derivee:= diff(y(x),x,x); 

denvee:= 

>■(•') 

cx 

Derivee seconde par 
rapport a x de v(x) 


subs 

[>subs(x=2,sin(x*a)); 

sm(2 a) 

Substitution de x=2 
dans sin(x a) 


plot 

[>plot(f(x), x=a..b): 


Dessinera la fonction 
f(x) sur [a.b] 

Commande valable 
en 2-D seulement 

assume 

[>assume(n,iuteger) 


Sert a faire des 
hypotheses 



2.1.8 Exercices 


Exercice 2.1 : 

1. Utilisation de ? <fonction>, de help et de restart. 

2. ouvrir une session Maple et effectuer les calculs suivants : 

> 3 + 5 ; 

>3.5+4 : 

> 3.5+4; 
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> 

1/2+5/3; 


> 

1 : 2 

: 3 

• 2 - 

• ° r 

> 

1 : 2 

: 3 

• 2 - 2 - 

. O O f 

> 

1 : 2 

: 3 

• 2 - 2 - 2 - 
. o O O f 

> 

sin ( 0 ) 

r 


> 

Sin ( 0 ) 

r 


> 

3**2 ; 




cos (Pi/4 ) 

r 


in ( 1 ) 

r 


> 

Pi ; 



> 

evalf ( 

%) ; 


> 

I ; 



> 

evalf ( 

% A 2 ) 

r 

> 

infinity ; 


> 

% + 1 

r 



Exercice 2.2 : executer les instruction suivantes : 

1. dif f (x A 2 / ( l+x A 2 ) , x) ; 

simplify (%) ; 

2. sum (i A 2, i=l . . n) ; 

factor (%) ; 

3. solve (a*x A 2+b*x+c,x) ; 

factor (x A 2-3*x+l ) ; 

Exercice 2.3 : 

1 . calculer la derivee de la fonction f(x) = in (x) /x A 2. 

2. calculer la somine : 1 +2 +3~ + ... +n 3 . 

3. resoudre les equations : 

> x 2 - 3x +2 =0, 

> -x 2 + 4x + 3 = 0. 

Exercice 2.4 : 

3. Evaluer le sinus de ( 3 tc ) /5, en affichant 10 chiffres. 

4. Evaluer cos (in (5) sin (3 tc/ 7 ) +5) , en affichant 6 chiffres. 

Exercice 2.5 : Executer les instructions suivantes : 

> restart; 

> a : = 7 ; 

> a : = 0.5; 

> b : = 1 ; 

> b : = a; 

> a; b; 

> evalb (a=b) ; 

> a : = ' c' ; 

> a; 

> 100 ! ; 

> length (%) ; 

> whattype (%%) ; 

> ifactor (100 ! ) ; 

> 42/5+3; 

> whattype (%) ; 
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> numer (147/11) ; 

> denom (147/11) ; 

> evalf (147/11) ; 

> whattype (%) ; 

Exercice 2.6 : Soit le nombre complexe z = (1 + I) A 2/ (1-2*1). 

1 . Calculer la partie reelle Re ( z ) et la partie imaginaire Im ( z ) de z . 

2. Calculer le module de z : abs ( z ) . 

3. Calculer l’argument de z : argument ( z ) . 

4. Calculer le conjuguais de z : conjugate (z) . 

5. Mettre z sous la forme a + ib en utilisant la fonction : evalc ( ) . 

Exercice 2.7 : 

1. Stocker la constante "infini" 00 dans la variable x et le nombre In (2) dans 
la variable y . 

2 . Echanger les valeurs des variables x et y . 

3. Verifier les valeurs des variables x et y apres l’echange. 

Exercice 2.8 : 

1 . Executer les instructions suivantes (la commande evalb()): 

> 4=5; 

> evalb ( 4=5 ) ; 

> evalb (1+3=4 ) ; 

2 . Executer les instructions suivantes (la commande convert ( ) ) : 

> convert ( 12 3 , binary ) ; 

> convert ( 1 0 0 , hex) ; 

> convert ( 1 0 1 , decimal , binary ) ; 

> convert (' 1A' , decimal , hex) ; 

3. Executer les instructions suivantes : 

> s : =a, b, c; 

> s : =s , d; 

> L : = [s] ; 

> nops (L) ; 

> op (L) ; 

> op (2, L) ; 

> L [3] ; 

> op ( 1 . . 2 , L) ; 

> L : = [op (L) , e] ; 

> E :={1,2,3,2}; 

> nops (E) ; 

> op (E) ; 

> op (2, E) ; 

> convert ( [op (E) ],'*') ; 
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3. Maple et les Mathematiques 

3.1 Les fonctions 

3.1.1 Les fonctions mathematiques predefinies 

Maple nous propose une foule de fonctions predefinies. Panni celles-ci, on compte les sin, 
log, exp, sqrt (racine carree) que vous connaissez deja tres bien. En plus de ces grands 
classiques, d'autres relevent de domaines specialises et beaucoup vous sont probablement 
inconnues. Elies suffiront dans la plupart des situations de calcul. Vous les rencontrerez en 
deroulant le menu Help, en cliquant sur Contents et en ouvrant la section Mathematics. Le 
reste est une question d’exploration et il y a beaucoup de choses. 

Notez que toutes les fonctions "fonctionnent" de la meme maniere. Pour en tirer un calcul et 
un resultat, il vous suffira de taper le nom de la fonction correctement et de lui fournir un 
argument entre parentheses: 

> abs (-5) ; 

5 

Si vous connaissez le nom d'une fonction et que vous n'etes pas certain(e) de ce qu'elle fait ou 
de la syntaxe de ses arguments, faites simplement :?nom_de_f onction 
Par exemple, pour la fonction abs de "mise en valeur absolue": 

>?abs 

3.1.2 Definir des fonctions 

Il est tres commode de savoir definir ses propres fonctions pour tailler les calculs sur mesure. 
Les trois principaux mecanismes de definition sont: 
o la notation flechee -> 
o l'operateur unapply 
o proc...end 


notations flechees 

C'est certainement la fa?on la plus simple et elle rappelle la notation mathematique 
traditionnelle. 

Voici, par exemple, une definition flechee de la fonction "cosinus du carre". 

> cos_carre : =x->cos (x A 2 ) ; 

cos_carre :=x->cos(x 2 ) 


Une fois definie, elle acceptera divers types d’arguments: 

>cos_carre (5 ) ; 

cos ( 25 ) 


>cos_carre (oiseau) ; 


cos (oiseau 2 ) 


>cos_carre ( 1 . 5 ) ; 


-.6281736227 


avec unapply , a partir d'une expression 

On peut avoir d’excellentes raisons de desirer construire une fonction a partir d'une 
expression. Le cas le plus typique est celui du polynome dont on veut tirer une fonction 
polynomiale. Prenons par exemple: 

>px :=55*x A 5-37*x A 4-35*x A 3+97*x+50 ; 

px := -55 x 5 - 37 x 4 - 35 x 3 + 97 x + 50 ; 
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On aimerait bien effectuer des evaluations en un point particulier de px, en faisant 
simplement: 

>px ( 3 ) ; 

-55 x (3) 5 - 37 x ( 3 ) 4 - 35 x (3) 3 + 97 x(3) + 50 

On voit bien que ?a ne marche pas du tout. La raison de ce comportement aga?ant vient de ce 
que px n’est pas une fonction, mais une expression. II faudra done transformer px en une 
fonction. L'operateur unapply sert precisement a cette transformation: 

>fonc_px := unapply (px, x) ; 

fonc_px := x— > -55 x 5 - 37 x 4 - 35 x 3 + 97 x + 50 

des lors on obtient fac dement 

>fonc_px(3) ; 

—16966 


avec proc...end 

Les definitions de fonctions avec proc...end pennettent d'ecrire des "procedures", c'est-a- 
dire des sequences de commandes (a executer successivement). De plus, la programmation 
procedural fait un usage frequent de variables intermediaries ainsi que ^instructions de 
controle(if, for, while). 

Voici la definition d'une petite procedure. A partir d’une liste quelconque d’entiers, elle 
produit la sous-liste de tous les nombres premiers contenus dans cette liste. 

>les_prem :=proc ( liste_nombre ) 

local nouvelle_liste, longueur, i ; 
nouvelle_liste := NULL ; 
longueur := nops (liste) ; 
for i from 1 to longueur do 

if isprime (liste [i ] ) then 

nouvelle_liste : =nouvelle_liste, liste [i] ; 

fi 

od ; 

[nouvelle_liste] ; 

:= [seq (i, i=l . . 25) ] ; 

:= [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
18, 19, 20, 21, 22, 23, 24, 25] 

>les_prem (liste) ; 

[2, 3, 5, 7, 11, 13, 17, 19, 23] 

Cependant, une bonne connaissance des operateurs fonctionnels comme select rend souvent 
superflue l’ecriture de procedures. Dans le cas present, on pourrait tout simplement ecrire: 

>liste_prem := (liste) -> select (isprime, liste) ; 

liste_prem := liste -> select (isprime, liste) 

>liste_prem (liste) ; 

[2, 3, 5, 7, 11, 13, 17, 19, 23] 

3.2 Simplification 

3.2.1 simplify 

Une des activites mathematiques les plus importantes consiste a simplifier des expressions 
trop compliquees. Lorsque cette operation est bien reussie, une expression qui semblait 


end ; 
liste 
liste 
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mysterieuse devient soudainement plus comprehensible. La simplification d'une expression 
permet aussi des gains en temps de calcul qui pourraient bien etre considerables. A propos de 
simplification, il faut realiser un certain nombre de choses lorsqu'on travaille avec Maple. 
Maple effectue automatiquement certaines simplifications tres elementaires comme 
(x -x) -> 0, x/x -> 1 . 

En dehors de ces cas evidents, Maple ne touche a rien a moins qu'on ne le lui dise. 

La commande la plus facile a utiliser et qui donne generalement de bons resultats est 
simplify. Cette commande effectue des simplifications de toutes sortes et d’habitude les 
resultats concordent avec ce qu'on attend d'une simplification. 

Cependant, il arrive que simplify ne simplifie pas beaucoup et meme complique 
l'expression! 

La notion de simplicite varie passablement en fonction des personnes et des situations. 

Lorsque simplify ne peut pas faire le travail, il faut y aller avec des instructions plus 
precises. Maple en met plusieurs a notre disposition. 

3.2.2 normal, collect, expand 

normal donne une expression sous forme de fraction dite reduite, i.e. dont le numerateur et 
le denominateur n'ont pas de facteur commun. 

Exemple : 

>normal (a/ (a-b) - b* (a+b) / (a A 2 - b A 2)); 

1 

expand brise les arguments d'une fonction, d’ou des arguments plus simples, mais plus de 
termes. 

Exemple: 

>expand (sin (2* (a+b) ) ) ; 

4*sin (a) *cos (a) *cos (b) A 2- 

2*sin (a) *cos (a) +4*cos (a) / '2*sin (b) *cos (b) -2*sin (b) *cos (b) 

combine en un sens, combine est l’inverse de expand : moins de morceaux, mais chacun 
est plus complique. 

Exemple : 

>combine (%, trig) ; 

sin(2a + 2b) 

collect ramasse les termes " semblables ". 

Exemple : 

>collect (7* (z+y) A 3+x* (x+z*y) + (x+y) A 2, y) ; 

7 y 3 + (21 z + 1) y 2 + (21 z 2 +2 x + xz)y + 7 z 3 + 2 x 2 

sort met de l'ordre (les principes peuvent varier) 

Exemple: 

>poly : =expand ( (x-2 ) * (x A 2+l ) A 3 ) ; 

poly :=x 7 + 3x 5 + 3x 3 + x - 2 x 6 - 6 x 4 -6x 2 - 2 


>sort (poly) ; 


7 t 6,-j 5 ^ 4 ,t 3 s 2 . ~ 

x -2x +3x -ox +3x -ox +x-2 
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factor effectue la mise en facteurs. C'est aussi une sorte d'inverse de la commande 

expand . 

Exemple : 

>f actor (poly ) ; 

(pc - 2) (x 2 + l) 3 


3.2.3 convert 


La commande convert effectue deux genres de conversions: 

i) d'un type de structure de donnees a un autre 

ii) d’une forme d’ expression a une autre 

Nous donnons quelques exemples des deux aspects de cette commande extremement pratique. 

Changements de type 

Un usage tres courant de cette commande consiste a faire l’addition ou la multiplication des 
elements d’une liste par conversion du type list aux type + ou *. 


>l±ste := [1, 2, 3, 4, 5] 
>convert (liste, ' + ' ) ; 

>convert (liste, '*') ; 


liste := [1, 2, 3, 4, 5] 


15 

120 


Un autre usage repandu de la conversion de type consiste a transformer une serie en un 
polynome 

>serie_tayl := taylor ( sin (x) , x) ; 

serie_tayl := x - 1/6 x 3 + 1/120 x 5 + 0 (x 6 ) 

>convert (serie_tayl, polynom) ; 

x - 1/6 x 3 + 1/120 x 5 


Changements de forme 

Donnons-nous l’expression trigonometrique suivante: 

>express_trigo := sin (x) /cos (x) ; 

On pourrait s’imaginer que la simplification automatique transformerait ce rapport en tan (x) 

>simplify (express_trigo) ; 

sin(x} 

cos{x) 

Non, il va falloir demander expressement a Maple d’effectuer cette "conversion": 

>convert (express_trigo, tan) ; 

tan (x) 

La forme "fraction partielle" a partir d’une expression rationnelle est souvent recherchee. Aux 
yeux de Maple, il s’agit d’une conversion: 

>convert ( (x A 3+x-3) / (x A 2-l) ,parfrac,x) ; 
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11 5 1 

2x-l + 2x+l 


La forme de Horner des polynomes est particulierement economique en nombre d’operations 
et done en temps de calcul. Cette fonne s’obtient aisement grace a la commande convert : 

>poly := x A 3t3*x A 2+4*x-12 ; 

poly := x 3 + 3x z + 4x - 12 

>poly_horner : = convert (x A 3+3*x A 2+4*x-12,horner,x) ; 

poly_horner := -12 + (4 + (3 + x) x) x 
>expand (poly_horner ) ; 


x 3 + 3 x 2 + 4 x - 12 


3.3 Extremums d’une fonction 

Trois commandes de base sont disponibles pour trouver les extremums d’une fonction d’une 
ou de plusieurs variables : 

Extrema (expression, {contrainte}, {variable}) 

Minimize (expression, optionl, option2, ..., option3) 

Maximize (expression, optionl, option2, ..., option3) 

Exemple : Trouver le minimum de (x-2) sur Tintervalle [1,5] 

>restart ; 

fonction := (x-2) A 2 ; 

minimize ( fonction, x=l .. 5 , location) ; 

location indiquera quelles sont les coordonnees du point ou se trouve ce minimum 


Exemple : trouver le minimum et le maximum de f(x,y)=x2+y2 sur le domaine [-3,3]x[-4,4] 

>restart ; 

fonction := x A 2 + y A 2 ; 

minimize ( fonction, x = —3.. 3, y = —4.. 4, location) ; 
maximize ( fonction, x = —3.. 3, y = —4.. 4, location) ; 

Exemple : soit une sphere centree a Torigine de rayon 2 et dont T equation est x2+y2+z2=2. 
Sachant que la temperature sur la sphere est donnee par la fonction : 

T(x, y, z) = x 2 + y 2 + z 2 , trouver les extremums de T(x, y, z). 

>restart ; 

fonction := x A 2 + y A 2 t z A 2 ; 

extrema (fonction, x A 2ty A 2tz A 2=2, {x, y, z } ) ; 


3.4 Graphisme 

Grace aux commandes plot et plot3d, vous pourrez produire des graphes de plusieurs 
fonctions dans une meme fenetre, des graphes parametres, etc. Nous en rencontrerons 
quelques exemples et le ? vous en fournira plusieurs autres. 

Les commandes graphiques plot et plot3d sont les plus frequemment utilisees. Le package 
plots en contient plusieurs autres. Pour obtenir des informations sur ce package : faites 
simplement ?plots. Tapez with (plots) : pour le charger et ainsi avoir acces a ces 
commandes supplementaires. Notez la presence du petit ; a la fin de cette derniere instruction. 
C'est que Maple est particulierement bavard lorsqu'il charge un package. 

3.4.1 Graphisme 2-D 
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Pour dessiner des courbes en deux dimensions, plusieurs commandes sont disponibles. Le 
choix de l’une de ces commandes se fait selon que la fonction est exprimee sous forme : 
explicite, implicite, parametrique ou sous fonne polaire. 

Forme explicite 

soit a dessiner la fonction f = f(x) sur l’intervalle [a,b]. 
plot(f(x), x=a..b) ; 

Exemple : dessiner la fonction f(x) = sin(x) sur [p, 4p] 

>plot ( sin (x) , x = Pi .. 4*Pi); 

Exemple : Dessiner sur un meme graphique les fonctions f(x) et g(x) ci-dessous, dont f(x) 
sera en bleu et g(x) en rouge, sur l’intervalle [-p, p] 
f(x) = sin(x) 
g(x) = cos(x) 

>plot ( [sin (x) , cos (x) ] , x = -Pi.. Pi, color = [blue, red] ) ; 

Remarque: [sin(x),cos(x)] etant une liste de meme que [blue, red] ainsi l’ordre des fonctions 
a dessiner suivra l’ordre de la liste des couleurs. 

Forme implicite 

Soit a dessiner la fonction qui est donnee sous la forme implicite f(x, y) = 0. 

Pour cela, il est necessaire d’introduire le module plots. Ainsi : 

>with (plots) ; 

implicitplot ( f (x, y) , x = a . . b, y = c . . d) ; 

Exemple : Dessiner la courbe dont 1’ equation cartesienne est : 

Exp(xy) = cos(x-y) pour 0<x<7t et 2<y<4 

Noter que y = y(x). 

>with (plots) ; 

implicitplot (exp (x*y) - cos (x - y) , x = 0 .. Pi, y = 2 .. 4) ; 

Forme parametrique 

Maple permet aussi de representer des courbes definies parametriquement, c’est-a-dire dont 
les composantes x et y dependent toutes deux d’un meme parametre. 

Soit a tracer une fonction sur l’intervalle [a,b] et dont les equations parametriques sont : 
x = f(t) 
y = g(0 

la syntaxe de la commande est : 

plot ([f(t), g(t), t = a .. b] , scaling = constrained) ; 

Exemple : soit a tracer un cercle de rayon R = 2 sur l’intervalle [0 .. 2p], dont les equations 
parametriques sont : 
x(t) = 2 * cos (t) 
y(t) = 2 * sin(t) 

>plot ( [ 2 *cos (t ) , 2*sin(t), t = 0 .. 2*Pi], scaling = constrained) ; 

Forme polaire 
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Soit a tracer la cardioide dont l’equation polaire est r(P) = 1 + cos(P), sur [0, 2p], dans le 
systeme de coordonnees cartesiennes. 

>with (plots) ; 
r : = 1 + cos (beta) ; 
polarplot (r, beta = 0 .. 2*Pi) ; 


3.4.2 Graphisme 3D 
Forme explicite 

Soit a dessiner une surface dont l’equation de cette surface est donnee sous forme z=f(x,y). 

La syntaxe de la commande est : 

>plot3d ( f(x,y), x = a . . b, y = c . . d) ; 

Exemple : soit a dessiner la surface x + y = z pour - 1 < x < 1 et -2 < y < 2 

>plot3d( x A 2 + y A 2, x= y=-2..2) ; 

Forme implicite 

Soit a dessiner la surface S lorsque l’equation de cette surface est donnee sous forme : 
f(x,y,z)=0. 

Les commandes sont : 

>with (plots) ; 

implic±tplot3d ( f(x,y,z), x=a..b, y=c . . d, z=e..f) ; 

forme parametrique 

Soit a dessiner une courbe dans l’espace dont on connait les equations parametriques 
suivantes : 
x = f(t) 

y = g(t) b < t < a 

z = h(t) 

les commandes sont : 

>with (plots) ; 

spacecurve ( [ f (t ) , g (t ) , h (t ) ] , t=a..b) ; 

Exemple : soit a tracer dans l’espace l’helice circulaire dont les equations parametriques 
sont : 
x = cos(t) 

y = sin(t) 0 < t < 2n 

z = t 

les commandes sont : 

>with (plots) ; 

spacecurve ([ cos (t ), sin (t ), t ] , t = 0..2*Pi) ; 

soit a dessiner une surface dont on connait les equations parametriques suivantes : 
x = f(t,s) 

y = g(t,s) a<t<b et c<s<d 

z = h(t,s) 

la commande est : 

>plot3d ( [f (t, s) , g (t, s) , h (t, s) ] , t = a..b, s = c..d) ; 

3.5 Derivation 
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3.5.1 Derivation explicite 

La syntaxe est : 

Diff( expression, xl, x2, ... xn); 


Exemple : soit a calculer of(x,y)/ox ou f(x,y) = sin(x+y) ln(xy) 

>expression := sin (x +y) * ln(x*y) ; 

diff (expression, x) ; 


2 

Exemple : soit a calculer d f(x,y)/dxdy ou f(x,y) = sin(x+y) ln(xy) 

>expression := sin (x +y) * ln(x*y) ; 

diff (expression, y, x) ; 


3.5.2 Derivation implicite 

La syntaxe est : 

implicitdiff(equation, fonction dependante, variable de derivation) ; 

Exemple : soit a trouver dy/dx de cos(x+y) = ln(xy) ou y=y(x). 

>expression := cos (x+y) = ln(x*y) ; 
implicitdiff (expression, y, x) ; 


3.6 Integration 

3.6.1 Integration simple 

La syntaxe est : 

int(f(x), x = a..b) ; pour evaluer T integrate et afficher le resultat. 

Int(f(x), x = a..b) ; pour retourner l’integrale non evaluee. 

Tel que : - f(x) est la fonction a integrer 

x est la variable d’ integration 

a,b sont les bomes d’integration inferieure et superieure respectivement 

Exemple : soit a integrer la fonction f(x) = sin(x) 

>int (sin (x) , x) ; 

Soit a integrer la fonction f(x) = sin(x) sur [-p, p] 

>int(sin(x), x = -Pi .. Pi) ; 


3.6.2 Integrate double 

La syntaxe est : 

Doubleint(f(x,y), x, y) Tintegrale se fera selon x et ensuite selon y 
Doubleint(f(x,y), x = a..b, y = c..d) 

Doubleint(f(x,y), x, y, domaine) 

Tels que : 

f(x,y) est la fonction ou T expression a integrer. 
a, b, c, d sont les bornes d’integration. 

Domaine est le nom du domaine qui apparaitra sous les integrales 

Pour utiliser cette commande, il est necessaire d’ouvrir le module student a l’aide de 
with (student) . Voir exemple ci-dessous. 
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Exemple : soit a integrer la fonction f(x,y) = x+y sur le domaine D=[l,2]x[3,4] 

>with ( student ) ; 

doubleint (x+y, x = 1..2, y = 3.. 4) ; 

eval f ( % ) ; le signe % fait reference au dernier resultat 

3.7 Developpement en serie de Taylor 

3.7.1 Serie de Taylor 

La syntaxe est : 

taylor (f(x), x = a, n) ; 
tels que: 

f(x) est la fonction dont il faut ecrire le developpement en serie de Taylor, 
a est le point autour duquel f(x) est developpe en serie de Taylor 
n est Tordre du developpement 

Exemple : soit a developper en serie de Taylor autour du point x=0 de f(x)=sin(x). 

>serie_taylor := taylor ( sin (x) , x = 0,3) ; 

serie_taylor := x + 0(x 3 ) 


3.7.2 Polynome de Taylor 

De la serie de Taylor, il est possible d’extraire le polynome de Taylor a Taide de la 
commande convert et de T option polynom. 

Exemple : 

>serie_taylor := taylor ( sin (x) , x = 0,3) ; 

serie_taylor := x + 0(x 3 ) 

>poly := convert (serie_taylor, polynom); 

poly := x 

Pour les series entieres, on peut utiliser le module pow series qui contient plusieurs 
commandes permettant de manipuler ces series. 

>restart ; 

with (powseries ) ; 

3.8 Exercices 

Exercice 3.1 : 

1. Donner les termes de la suite x 1 pour i variant de - 5 a 7 (utiliser la commande seq). 

2. Calculer le produit des termes de la suite x 1 pour i variant de - 5 a 7 (utiliser la 
commande convert). 

Exercice 3.2 : 

1 . Mettre dans une liste les valeurs du polynome x 2 + x + 41 pour x entier variant de - 
lOalO, (on definit le polynome par p : =x->x^2+x+4 1). 

2 . Selectionner les elements de cette liste qui sont des nombres premiers. Que 
constatez-vous ? (utiliser la fonction isprime ( ) ). 

Exercice 3.3 : Executer les instructions suivantes : 
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1. > for n from 5 to 10 do 

convert ( (n-1) A 2 , base, n) ; 
convert (2 * (n-1 ), base, n) ; 

od; 

2. > for n from 5 to 10 do 

convert ( (n-1) A 3, base, n) ; 
convert ( (n+2 )* (n-1 ) A 2 , base, n) ; 

od; 

3. Que constatez-vous ? 

Exercice 3.4 : 

Etant donnes deux matrices d’ordre 3 a coefficients reels suivantes : 

A : =matrix ( 3 , 3 , [ -1 , 2 , 0 , 4 , -2 , 3 , 0 , 1 , -3 ] ) et 
B : =matrix ( 3 , 3 , [ 2 , 0 , 1 , 4 , -1 , 1 , 2 , 0 , -5 ] ) . 

1 . Calculer la sonnne des deux matrices A et B, 

2. Calculer le produit du nombre -5 par la matrice A, 

3. Calculer la trace de la matrice A et celle de la matrice B, 

4. Calculer le produit de la matrice A par la matrice B, 

5. Calculer les determinants det (A) et det (B) . 

Exercice 3.5 : 

Onnote H_a_b:=matrix (3, 3, [a, b, b, b, a, b, b, b, a] ) , la matrice d’ordre 3 a 
coefficients reels. 

1 . Calculer la trace de la matrice H_a_b, pour quelles valeurs de a et b la trace de 
H_a_b est toujours nulle ? 

2. Calculer le produit matricielle H_a_b x H_c_d . 

3. Calculer le determinant de la matrice H_a_b. 

4. On se place dans le cas de a=l, pour quelles valeurs de b la matrice H_l_b est- 
elle inversible ? 

5. On se place dans le cas de b=l, pour quelles valeurs de a la matrice H_a_l est- 
elle inversible ? 
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4. Elements de programmation 

4.1 Les tests 

II arrive souvent que la decision d’effectuer telle ou telle tache depende de la realisation d’une 
condition, on a alors recours au if. 

4.1.1 L’instruction conditionnelle simple 

La syntaxe est la suivante : 

if condition then 

11 

1 2 


Ik 

fi; 

Explication : si la condition est vraie executer les instructions 1 1 , , Ik- 

Exemple : 

> a:=10;b:=25; 

if (a<=b) then 
print (b) ; 

fi; 

if (a>b) then 
print (a) ; 

fi; 

a := 10 


b := 25 


25 

Pour eviter la repetition des instructions if on utilise l’instruction conditionnelle avec else. 

4.1.2 L’instruction conditionnelle avec else 

La syntaxe est la suivante ; 

if condition then 
Ii 

Ik 

else 

I'i 

I'k 

fi; 

Explication : si la condition est vraie executer les instructions Ii, ..., I k sinon executer 
les instructions I'i, ..., I ' k . 

Exemple : 

> a : =10; b : =25; 
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if (a<b) then 
print (b) ; 

else 

print (a) ; 

fi; 


a := 10 


b:= 25 


25 

4.1.3 L’instruction conditionnelle imbriquee 

La syntaxe est la suivante : 

if condi then 
Instri 

elif cond 2 then 
Instr 2 

elif cond k -i then 
Instr k _i 

else 

Instr k 

fi; 

Explication : si la condition cond± est vraie executer les instructions Instri, sinon, si la 
condition cond 2 est vraie executer les instructions Instr 2 , sinon sinon, si la condition 
cond k -! est vraie executer les instructions Instr k _i sinon executer Inst r k . 

Exemple : 

>a:=l; b:=l; c:=l; delta : =b*b-4*a*c; 
if (delta>0) then 

print ("deux solutions reelles"); 
elif (delta=0) then 

print ("une solution double reelle"); 

else 

print ("deux solutions complexes"); 

fi; 


a := 1 
b:= 1 
c := 1 
8 := -3 

"deux solutions complexes" 

4.2 Les operateurs logiques and, or et not (ET, OU et NON) 

Lorsqu'on souhaite verifier plusieurs conditions simultanement, on a recours aux operateurs 
logiques. 

and —> vrai si condition 1 et condition2 sont satisfaites 
or —> vrai si condition 1 ou condition2 est satisfaite 
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not — > vrai si condition n'est pas satisfaite 


Exemple: On veut savoir a quelle partie du domaine D = [-5,8] appartient x. 
Si (x < -5) et (x < 8) alors 

x est a l’interieur du domaine 
sinon ((x=-5) ou (x = 8)) alors 

x est a l'exterieur du domaine 


sinon 
fin si 


x est sur la frontiere du domaine 


> x := 9; 
>if (x > 


fi 


x := 9 

-5 and x < 8) then 

printf('x exterieur' ) 
elif not (x = -5 or x = 8) then 
pr±ntf('x exterieur') 

else 

print (' x frontiere') 

x exterieur 


4.3 Les iterations 

Les commandes iteratives servent a repeter une sequence d’ instructions convenablement 
modifiees a chaque etape. Elies sont presentes dans Maple sous cinq formes : les boucles/or 
... do et while qui existent dans plusieurs langages de programmation, ainsi que les 
commandes seq, $ et map. 


4.3.1 La bolide for 

La boucle for sert a repeter la meme operation plusieurs fois en faisant varier un indice 
d’ iterations. Une syntaxe non exhaustive de la boucle for est la suivante : 


f or<variable>f rom<debut>by<saut>to<f in>do<instructions> end do 


Les commandes from et by sont optionnelles, elles ont une valeur par defaut de 1 . les autres 
commandes sont obligatoires. 


Exemple : 

>for i from 4 to 30 by 7 do 

print ( i ) 


od; 


4 


11 18 25 


>restart ; 

1 : = [a, b, c, d, e] ; 

for i in 1 do 

print ( i ) 

od; 


abode 


L’instruction break permet de sortir de la boucle. 

L’instruction next permet de passer a l’iteration suivante dans la boucle. 


Le Langage de programmation Maple 


25 


Mohamed El Marraki 


Exemple : 

> for i from 1 to 10 do 

if i=4 then next;fi; 
if i=6 then break; fi; 
print (i); 

od; 

1 2 3 5 6 


4.3.2. La boucle while 

II arrive souvent qu'on veuille repeter un groupe d' instructions jusqu'a ce qu'une certaine 
condition soit satisfaite. C’est justement le type de controle que pennet d’exercer la coimnande 
while , sa structure syntaxique est la suivante : 

while <condition> do <instruction> end do 


Exemples : 

1. >i : =4 : 

while i<=30 do 
print (i) ; 
i : =i+7 ; 

od: # : au lieu de ; pour ne pas afficher le i 

4 11 18 25 

2. >restart; 1 : = [a, b, c, d, e ] : i:=l: 

while i<=nops(l) do 
print (1 [i] ) ; 
i : =i+l; 

od: # : au lieu de ; pour ne pas afficher le i 

abode 

4.3.3 La commande seq 

Si f(i) est le terme general d’une suite, alors la commande 

seq(f(i),i=m..n) 

genere la suite : f(m), f(m+l), . . f(n). 

cette commande peut etre utilisee pour calculer des soinmes ou des produits. Voici un autre 
exemple 

Exemple : produit cartesien — voici la suite des couples d’un produit cartesien d’ ensembles 
A*B. 

>restart : 

A := {a,b,c,d} : 

B := {1,2,3}: 

Seq(seq( [i, j] , i=A) , j=B) ; 

[a, 1] , [b, 1] , [ 0 , 1 ], [d, 1] , [a, 2], [b, 2] , [c, 2] , [d, 2] , [a, 3], [b, 3] , [ 

c, 3] , [d, 3] 

4.3.4 La commande $ 

La commande $, tout comme la commande seq, est utilisee lorsqu’on desire construire une 
suite f(i) avec un parametre i variant entre a et b. la syntaxe de la commande $ est la suivante : 
‘f(i)’$’i’ = a.. b 
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Exemple : construisons la suite l 2 , 2 2 , 3 2 , 4 2 , 5 2 avec la commande $ 

>' i A 2' $' i'=l . . 5 ; 


1, 4, 9, 16, 25 


4.3.5 La commande map 

La commande map(f,L) , utilise egalement l’iteration pour appliquer une procedure / aux 
membres d’une liste L ou, de fag on plus generale, aux operandes d’une expression. 

Exemples : 

1. >map(D, [x ->x A 2, x ->x A 3, sin]) ; 

[jc -» 2x, jc -» 3x\ cos] 

2 . >f := x -> log[10] (x) ; 


f := login 

>raap (f, [1,10,100,1000]) ; 

ln(100) ln(1000) 
°’ 1, ln(10) ’ InUO) 

>simplify(%) ; 

[0, 1, 2, 3J 


> f 

> A 


(i, j) -> x A ( (i + 1) A j) ; 
matrix (2 , 2 , f ) ; 





> map (dif f , A, x) ; 


2x 4x 3 
Sx 2 9x s 

_ 


4.4 Procedures 


Les programmes, ou procedures, utilisent la commande fondamentale proc. Ecrivons, dans 
un premier exemple, la procedure pour obtenir la partie entiere de la moitie d’un nombre n. 

Exemple : partie entiere de n/2. 

> moitie := proc (n) 

trunc (n/2 ) ; 

end proc ; 

moitie := proc (n) trunc (l/2*n) end proc 

> moitie (5 ) ; 

2 

La forme syntaxique generale de la commande proc est la suivante: 

proc (xl : : typel, x2 : : type2, x3 : : type3, ...) 
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local vl, v2 , v3, .... ; 
global ul, u2, u3, ... ; 
options opl, op2, ... ; 
iinst ructions 
end proc ; 

seules les commandes proc et end proc sont obligatoires dans une procedure. Toutes les 
autres instructions sont facultatives. Les parametres xl, x2, ... sont appeles les arguments ou 
les entrees de la procedure. Dans les lignes suivantes nous faisons la description des 
composantes d’une procedure. 

4.4.1 Les types des arguments dans une procedure 

Les arguments d’une procedure appartiennent souvent a un type specifique. On peut inserer 
pour chaque argument xi une contrainte type! sur son type en ajoutant celle-ci 
immediatement apres xi dans la premiere ligne de la procedure avec la syntaxe xi : : 
typei. Par exemple, si on veut contraindre l’entree n a etre un nombre dans la procedure 
moitie, on ecrit : 

> moitie := proc (n :: numeric) 

trunc (n/2 ) ; 

end proc ; 

moitie := proc(n :: numeric) trunk (l/2*n) end proc 

> moitie (a) ; 

Error, invalid input : moitie expects its 1 st argument, n, to be 
of type numeric, but received a 

4.4.2 Variables locales et variables globales 

L’ instruction local dans une procedure f fournit la liste des variables dont la portee est 
limitee a la procedure f. Redefinissant la procedure moitie pour donner a la variable b la 
valeur n/2 , mais seulement a l’interieur de la procedure : 

> b := 100 ; 

moitie := proc (n) 
local b ; 

b := n/2 ; 
trunc (b) ; 

end proc ; 

moitie := proc (n) local b ;b :=l/2*n ; trunc (b) end proc 

> moitie (5 ) ; 

2 

> b ; 

100 

Comine on le voit, la variable b a une valeur globale de 100 et une valeur locale a l’interieur 
de la procedure moitie de n/2. 

La commande global donne la liste des variables qui ont la meme valeur a l’interieur et a 
l’exterieur d’une procedure. 

> c : = 7 0 ; 

b := 100 ; 
moitie := proc(n) 

local b ; global c ; 
b := trunc (n/2) ; c := 374 ; 

print (b) ; print (c) ; 

end proc : 
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> moitie (5) 


> b ; 

> c ; 


2 

374 

100 

374 


Exemples : 

1 . # procedure qui donne le f actoriel de n 

> # procedure qui calcule la somme des entiers de 1 a n 

> somme := proc (n) # ici pas de point virgule 

local s,i; # variables locales 

s : = 0 ; 

for i from 1 to n do 
s : = s + i ; 

od : 

s; 

end; 


somme := proc (n) local s, i; s := 0 ; for i to n do s .= s + i end do ; s end proc 


> somme ( 10 ) ; 


55 


> somme (100) ; 


5050 


2 . # procedure qui donne le f actoriel de n 
restart; 

facto : = proc (n) 
local p, i; 
p:=l; 

for i from 1 to n do 
P := P*i; 

od; 

p; 

end; 

facto := proc (n) local p,i;p:= 1 ; for i to n do p := pxi end do ; p end proc 

> facto (5) ; facto (10 ) ; 

120 

3628800 

> t:=time() : facto(300) : time()-t; 

.001 

> t:=time() : facto(30000) : time()-t; 

17.356 


3. La fonction en Maple qui donne le nombre de bits necessaire pour coder un entier n en binaire 
est : 

> nbits := proc (n) 
local nb, i; 
i : =iquo (n, 2 ) ; 
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nb : =1 ; 

while ( i<>0 ) do 

i :=iquo (i, 2) ; /* le quotient de i par 2 */ 
nb : =nb + 1 ; 

od; 

nb; 

end; 

• La fonction Maple iquo(n,k) renvoie le resultat de la division entiere (quotient) de n 
par k. 

exemple : iquo(7,2) donne 3. 

• L’ expression n mod k donne le reste de la division de n par k. 
exemple : 7 mod 2 donne 1 . 

4.4.3 Valeur de retour d’une procedure 

La valeur renvoyee par une procedure f est le resultat de la derniere evaluation faite dans la 
procedure. Les commandes return et error pennettent de modifier cette regie. La 
commande error (message) interrompt l’execution de la procedure et affiche le message 
fourni en interdisant toute valeur de retour de la procedure. 

Exemple : 

> moitie := proc (n) 

if not (type (n, numeric ) ) then 

ERROR ( '1' argument doit etre de type numerique' ) 
else trunc (n/2) ; 

end if ; 
end proc ; 

> moitie (x) ; 

ERROR, (in moitie) 1' argument doit etre de type numerique 

La commande return (x) inseree dans une procedure termine l’execution de la procedure et 
designe x comme valeur de retour. 

Exemple : Appartenance a une liste - la procedure suivante verifie si une expression x 
appartient a une liste L. 

> element := proc(x :: anything, L :: list) 

local i; 

for i to nops(L) do 

if L[i]=x then RETURN (vrai) end if; 
end do; 
faux; 
end proc; 

>element (a, [a, b, e, a] ) ; 

Vrai 

>element (c, [a, b, e, a] ) ; 

Faux 

4.4.4 Procedures recursives 

Une procedure recursive est une procedure qui s’appelle elle-meme. 

Exemple : calcul du factoriel d’un nombre entier 

> facteur := proc(n) 
local f ; 
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if nol then 

f : =n*f acteur (n-1 ) ; 
else return (n) ; 
end if; 

> end proc; 

facteur := proc(«) local f; if n <> 1 then / := n*facteur{n - 1) else return n end if; end proc,' 

> facteur ( 3 ) ; 

6 

4.4.5 Sauvegarde de procedures et de calculs 

Lorsqu’on veut conserver des procedures ecrites lors d’une seance de travail ou encore le 
resultat d’un long calcul, il est possible de sauvegarder ce travail en format interne Maple 
pour le reutiliser dans une seance de travail ulterieure. La commande save sert a copier du 
texte dans un fichier dont le nom se termine par .m. la syntaxe de cette commande est : 

Save listenoms , fichier .m ; 

Exemple : on veut sauvegarder la procedure facteur de l’exemple precedent dans un fichier 
appele fichierfact ainsi que le resultat de facteur(5). On fait : 

> n := facteur(5) : 

save facteur, n, "fichierfact .m 

Maple ne renvoie aucune reponse mais un fichier fichierfact .m a alors ete cree et on peut 
retrouver le contenu de ce fichier lors d’une seance ulterieure avec la commande read. 

> restart ; 

n ; 

read " f ichierf act . m 

n; 

120 

4.5 Exercices 
Exercice 4.1 : 

4. Etant donnes deux nombres a et b, afficher le plus grand des deux nombres. 

5. Soit la fonction f (x) = (x+4 ) / (x 2 -l ) , 

a. Calculer, f(2) et f(l), 

b. Ecrire une suite d’ instructions qui affiche un message pour dans le cas de la 
division par zero. 

6. Soit 1’ equation ax"+bx+c=0, les nombres a, b et c sont donnes : 

a. Calculer delta, 

b. Afficher le type et le nombre de solution que possede cette l’equation. 

Exercice 4.2 : 

On sait que l’etat de l’eau depend de sa temperature. Ecrire une procedure qui affiche l’etat de 
l’eau (solide, liquide ou gazeux) selon sa temperature. 

Exercice 4.3 : 

Etant donnes deux nombres a et b, ecrire une procedure qui nous informe si le signe du 
produit de a et b est negatif, positif ou nul (attention : on ne doit pas calculer le produit des 
deux nombres). 
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Exercice 4.4 : 

Ecrivez une procedure qui permet de discerner une mention a un etudiant selon la moyenne de 
ses notes : 

- "Tres bien" pour une moyenne comprise entre 16 et 20, 

- "Bien" pour une moyenne comprise entre 14 et 16, 

- "Assez bien" pour une moyenne comprise entre 12 et 14, 

- "Passable" pour une moyenne comprise entre 10 et 12. 

Exercice 4.5 : 

3. Afficher les entiers compris entre -10 et 20. Mettre les entiers compris entre -10 et 20 
dans une liste. 

4. Afficher les entiers impairs compris entre 115 et 23 1, ensuite mettez les dans une liste. 

5. Stocker les nombres premiers inferieur a 100 dans une liste. 

Exercice 4.6 : 

1. Ecrivez un algorithme qui calcule la somine des n premiers nombres entiers positifs. 
Verifier le resultat en utilisant sum ( ) . 

2. Ecrivez un algorithme qui calcule le factoriel de n, ou n est un entier positif. 

Verifier le resultat en utilisant le factoriel : n ! 

Exercice 4.7 : 

1 . Ecrire une procedure en Maple qui calcule la trace d’une matrice carree d’ordre n. 

2. Ecrire une procedure en Maple qui calcule la transposee d’une matrice carree d’ordre n. 

3. Ecrire une procedure en Maple qui calcule la somme de deux matrices carrees d’ordre n. 

4. Ecrire une procedure en Maple qui calcule le produit d’une constante par une matrice 
carree d’ordre n. 

5. Ecrire une procedure en Maple qui calcule le produit de deux matrices carrees d’ordre n. 

6. Ecrire une procedure en Maple qui calcule le determinant d’une matrice d’ordre 3 a 
coefficients reels. 

Exercice 4.8 : 

Refaire les exercices 2.5 et 2.6 en utilisant les resultats de l’exercice 3.7. 

Exercice 4.9 : La suite de Fibonacci est donnee par les equations : 



u 0 = 

0 


A 

Ui = 

1 



U n = 

v_ 

U n — 1 

+ U n _2 

Calculer ui 

pour i 

variant de 

Calculer uj_ 

pour i 

variant de 


pour n ^ 2 
2 a 7. 

2 a 50 (utiliser la boucle for). 


Exercice 4.10 : 

1 . Ecrire un programme qui donne le plus grand element d’une liste L donnee. 

2. Ecrire un programme qui calcule la valeur decimale d’un entier represente en binaire 
par une liste de 0 et 1 . 

Verifier le resultat en utilisant la fonction convert ( ) . 


Le Langage de programmation Maple 


32 



Mohamed El Marraki 


Exercice 4.11 : 

Recherche d’un element dans une liste de nombres : recherche sequentielle 

1 . Ecrire une procedure qui prend pour arguments une liste L et un nombre x, et elle 
retourne true ou false selon que x appartient ou non a la liste L. 

2. Ameliorer la procedure precedente pour que la recherche s’arrete des qu’on a trouve la 
valeur x. 

Exercice 4.12 : 

Le tri d’une liste de nombres : rearranger les elements d’une liste dans l’ordre croissant pour 
rendre plus efficaces les operations de recherche et, par consequent, d’insertion, de 
suppression, etc. 

1 . Tri par selection : 

Principe : 

ranger le plus petit element, 
trier le reste de la liste. 

Ecrire une procedure Tri_selection() : qui prend pour argument une liste L, et elle 
ordonne la liste L dans Tordre croissant selon le principe de tri par selection. 

2. Tri par insertion : 

Principe : Cette methode est tres utilisee lorsqu’on joue aux cartes. Les elements (les 
cartes) sont divises en une suite destination ai ... ai_i et une suite source a i ... a n . 
A chaque etape, en partant de i=2 et en augmentant i de 1, on prend le i eme element 
de la suite source et on Tinsere a sa place dans la suite destination. Pour inserer 
T element couramment considere, on deplace simplement les element qui lui sont 
superieurs un cran vers la droite et on Tinsere dans la place laissee vacante. 

Ecrire une procedure Tri_insertion() : qui prend pour argument une liste L, et elle 
ordonne la liste L dans Tordre croissant selon le principe de tri par insertion. 

3. On peut verifier le resultat du tri en utilisant la fonction sort ( ) de Maple. 

Exercice 4.13 : 

Recherche d’un element dans une liste : recherche dichotomique 

On se place dans le cas ou la liste L est ordonnee et les elements de la liste sont deux a deux 
distincts. 

Principe : Nous cherchons a savoir si une valeur x est presente dans la liste L. Pour cela, nous 
comparons x a T element L [mil ] situe au milieu de la liste. Si x>=L [mil ] , alors x est dans 
la partie de la liste a droite de mil. Sinon, il est dans la partie situee a gauche. Dans les deux 
cas, le nombre d’emplacements possibles pour x a ete divise par deux. 

1. Ecrire une procedure recherche_dicho ( ) , qui s’inspire du principe 
dichotomique precedent. 

2. Comparer la recherche dichotomique a la recherche sequentielle. 
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5. Exercices et Problemes d’examens 

5.1 Examen d’informatique (I 2 SMP-SMC) session de Juin 2004 

Enonces des exercices : 

Exercice 1 : 

Ecrivez un algorithme qui demande a l’utilisateur d’entrer la temperature de l’eau, et affiche 
ensuite l’etat de l’eau selon la temperature (on rappelle que l’etat de l’eau est glace pour une 
temperature inferieure ou egale a 0°, est vapeur pour une temperature superieure ou egale a 
100° et liquide pour une temperature comprise strictement entre 0° et 100°). 

Exercice 2 : 

1 . Ecrivez un algorithme qui lit un entier n et compte le nombre de 1 dans la 
representation binaire de cet entier. 

2. Ecrivez un algorithme qui lit un tableau d’entiers de n elements et donne la plus 
grande et la plus petite valeur de ce tableau. 

Exercice 3 : 

Soit la fonction mystere ecrite en Maple suivante : 

mystere := proc (n) 

local liste,x,i ; 
x : = n ; 
liste := NULL ; 
i : =2 ; 

while (i<= x) do 

if ( irem (x, i ) =0 ) then 
x : = x/i ; 
liste : = liste, i ; 

else 

i : = i+1 ; 
fi; 

od; 

[liste ] ; 

end; 

1. Que valent mystere ( 8 ), mystere ( 90 ) et mystere (210) (justifier par un 
tableau de variables) ? 

2. Que fait ce programme ? 

3. Que se passera-t-il si on remplace l’instruction i:=2; par i:=l;? 

N.B : la fonction Maple irem (x, y) retourne le reste de la division de x par y et x/y 
designe la division entiere de x par y. 

Exercice 4 : 

Deux nombres entiers n et m sont qualifies d’amis, si la somme des diviseurs de n est egale a 
m et la somme des diviseurs de m est egale a n (on ne compte pas cornme diviseur le 
nombre lui meme et 1). 

Exemple : les nombres 48 et 75 sont deux nombres amis puisque : 
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■ Les diviseurs de 48 sont : 2 , 3, 4, 6 , 8, 12, 16, 24 et 

2+3+4+6+8+12 +16 +24 =75 

■ Les diviseurs de 75 sont : 3 , 5, 15, 25 et 3 + 5 + 15 + 25 = 48. 

Ecrire un algorithme qui permet de determiner si deux entiers n et m sont amis ou non. 


5.2 Correction de l’examen d’informatique (I 2 SMP-SMC) session Juin 2004 


Exercice 1 : sur 4 points 

l ere solution : 

Variable Temp : Entier 
Debut 

Ecrire ("Entrez la temperature de l'eau ) 
Lire (Temp) 

Si Temp =< 0 Alors 

Ecrire ( "C' est de la glace" ) 

Sinon Si Temp < 100 Alors 

Ecrire ( "C' est du liquide") 

Sinon 

Ecrire ( "C' est de la vapeur") 

Fin 

2 eme solution (mauvaise): 

Variable Temp : Entier 
Debut 

Ecrire ( "Entrez la temperature de l'eau : ") 
Lire (Temp) 

Si Temp =< 0 Alors 

Ecrire ( "C' est de la glace") 

Si Temp > 0 Et Temp < 100 Alors 
Ecrire ( "C' est du liquide") 

Si Temp > 100 Alors 

Ecrire ( "C' est de la vapeur") 

Fin 


Exercice 2 : sur 7 points 

1. Variables i,n,poids : entiers 
Debut 

Ecrire ( " Entrer la valeur de n :") 

lire (n) 
i <- n 

poids 4- 0 

TantQue ( i<>0 ) faire 

si (i mod 2=1) alors 
poids f- poids + 1 


i 4r i/2 

FinTantQue 
Ecrire (poids ) 
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Fin 

2. variables Tableau Tab[100], i, n, min, max : Entier 
debut 

ecrire ( "donner la taille du tableau :") 

lire (n) 

ecrire ( "donner les elements du tableaux :") 

Pour i allant de 1 a n faire 
lire (Tab (i) ) 

FinPour 

min Tab [ 1 ] 

max Tab [ 1 ] 

Pour i allant de 2 a n faire 

si (min > Tab[i]) alors 
min Tab [ i ] 
si (max < Tab[i]) alors 
max Tab [ i ] 

FinPour 

Ecrire ("le minimum est ",min) 

Ecrire ("le maximum est ",max) 

fin 

Exercice 3 : sur 6.5 points 

1. mystere ( 8 ) : 


X 

8 

4 

2 

1 

i 

2 

2 

2 

2 

liste 


2 

2,2 

2 , 2,2 


mystere ( 90 ) : 



2. Ce programme donne la liste des diviseurs (premiers) d’un entier n. 

3. En remplaQant l’instruction i : =2 par [’instruction i : =1 le teste irem (x, i ) =0 est 
toujours vrai, x prend toujours la meme valeur et la liste contiendra une infinite de 1 (on 
obtient une boucle infini) ! 

Exercice 4 : sur 3 points 

l* re Solution : 

variables n, m, d, p, SI, S2 : Entier 
debut 

ecrire ( " entrer 1' entier n :") 
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lire (n) 

ecrire ( " entrer l'entier m :") 

lire (m) 

51 0 

52 <r 0 
d 2 

TantQue d*d<=n faire 

Si irem(n,d)=0 alors 

Sl^~Sl + d + n/d 
d d + 1 

FinTantQue 

p 2 

TantQue p*p<=m faire 

Si irem(m,p)=0 alors 

S2 S2 + p + m/p 

p p + 1 

FinTantQue 
Si (S1=S2) alors 

Ecrire ( " n et m sont amis") 

Sinon 

Ecrire ( " n et m ne sont pas 

fin 

2" me Solution : 

variables n, m, i, SI, S2 : Entier 
debut 

ecrire ( " entrer l'entier n :") 

lire (n) 

ecrire ( " entrer l'entier m :") 

lire (m) 

51 4- 0 

52 f 0 

Pour i allant de 2 a n-1 faire 
Si irem(n,i)=0 alors 

51 <r SI + i 

FinPour 

Pour i allant de 2 a m-1 faire 
Si irem(m,i)=0 alors 

52 <r S2 + i 

FinPour 

Si (S1=S2) alors 

Ecrire ("n et m sont amis") 

Sinon 

Ecrire ("n et m ne sont pas 

fin 


amis " ) 


amis " ) 
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5.3 Examen d’informatique (I 2 SMP-SMC) session de Juillet 2004 


Exercice 1 : (4 points) 

Les etudiants ayant passe l'examen du module 12 en session de Juin ont ete classes selon leurs 
notes en trois categories : 

pour une note inferieure strictement a 5, l'etudiant est elimine, 

- pour une note superieure ou egale a 5 et inferieur strictement a 10, l’etudiant passe la 
session de rattrapage, 

- pour une note superieure ou egale a 10, l’etudiant valide le module 

Ecrivez un algorithme qui demande a l’utilisateur d’entrer la note du module, puis affiche la 
situation de l’etudiant selon sa note (on suppose que l'utilisateur entre une note valide entre 0 et 20). 

Exercice 2 : (4 points: 1/3) 

Un nombre parfait est un entier positif superieur a 1 , egal a la soinme de ses diviseurs ; on ne 
compte pas comine diviseur le nombre lui-meme. 

Exemple : 6 est un nombre parfait puisque : 6 = 3 + 2 + 1 . 

1 . Donner un nombre parfait different de 6. 

2. Ecrire la conception de l’algorithme qui nous dit si un entier n est parfait ou non. 

Exercice 3 : (5 points: 3/2) 

Soit la fonction mystere ecrite en Maple suivante : 

mystere := proc(a,b) 
local r ; 

while ( b > 0 ) do 

r : = irem (a, b) ; 
a : = b; 
b : = r; 

od; 

a; 

end; 

4. Que valent mystere ( 35 , 12 ), mystere ( 9 6, 8 1 ) et mystere ( 34 , 2 1 ) 

(donner les valeurs que prennent les variables a, b et r dans chacun des cas) ? 

5. Que fait ce programme ? 

N.B : la fonction Maple irem (x, y) retourne le reste de la division de x par y . 

Exercice 4 : (7 points: 3/4) 

1 . Ecrivez un algorithme qui lit la faille d’un tableau n, le tableau T, une valeur x, et il 
indique ensuite si l’element x appartient ou non au tableau T. 

2. Ecrivez un algorithme qui permet de determiner si les elements d’un tableau d’entiers 
sont tous consecutifs ou non. (Par exemple, si le tableau est : 7; 8; 9; 10, ses 
elements sont tous consecutifs. Si le tableau est : 7; 9 ; 10; 11, ses elements ne 
sont pas tous consecutifs). 
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5.4 Correction de l’examen d’informatique (I 2 SMP-SMC) session juillet 2004 
Exercice 1 : 

I ere • 

version : 

Variables note : reel 
Debut 

Ecrire ( "Entrez la note du module :") 

Lire (note) 

Si (note < 5) alors 

Ecrire ("l'etudiant est elimine") 

Sinon Si note <10 alors 

Ecrire ("l'etudiant passe en rattrapage") 

Sinon 

Ecrire ("l'etudiant a valide le module") 

Finsi 

Finsi 

Fin 

2 dme version : 

Variables note : reel 
Debut 

Ecrire ( "Entrez la note du module") 

Lire (note) 

Si (note < 5) alors 

Ecrire (" 1 ' etudiant est elimine") 

Finsi 

Si (note >= 5 et note < 10) alors 

Ecrire ( " l'etudiant passe en rattrapage") 

Finsi 

Si (note > 10) alors 

Ecrire (" 1 ' etudiant a valide le module") 

Finsi 

Fin 

Exercice 2 : 

1. Le nombre 2 8 est parfait puisque 2 8 = 14 + 4 + 7 + 2 + 1. 

2. l ire solution : 

Variables n, d, S : entier 
Debut 

Ecrire ("Entrez la valeur de n : ") 

Lire (n) 

S <- 1 

d 2 

TantQue (d*d <= n) 

Si (n%d=0) alors 

S^-S + d + n/d 
d d + 1 

FinTantQue 
Si (S=n) alors 

Ecrire ("le nombre n est parfait ") 
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Sinon 

Ecrire ("le nombre n n'est pas parfait ") 

Fin 

2* me solution : 

Variables n, d, S : entier 
Debut 

Ecrire ("Entrez la valeur de n : ") 

Lire (n) 

S <r 0 

d 1 

TantQue (d < n) 

Si (n%d=0) alors 
S <r S + d 

FinTantQue 
Si (S=n) alors 

Ecrire ("le nombre n est parfait ") 

Sinon 

Ecrire ("le nombre n n'est pas parfait ") 

Fin 

Exercice 3 : 

1. mystere (35,12) : 


a 

35 

12 

11 

b 

12 

11 

1 

r 

11 

1 

0 


La valeur affichee est 1 

mystere (96,81) : 


a 

96 

81 

15 

6 

b 

81 

15 

6 

3 

r 

15 

6 

3 

0 


La valeur affichee est 3 

mystere (34,21) : 


a 

34 

21 

13 

8 

5 

3 

2 

b 

21 

13 

8 

5 

3 

2 

1 

r 

13 

8 

5 

3 

2 

1 

0 


La valeur affichee est 1 

2. Get algorithme donne le plus grand commun diviseur (le pgcd) de deux nombres 
entiers a et b. 

Exercice 4 : (7 points: 3/4) 

1 . 

variables n, i, x, T[20] : entiers 
debut 

ecrire("entrer la valeur de n : ") 
lire(n) 

ecrire("entrer le tableau T : ") 
pour i allant de 1 a n faire 
lire(T[i]) 
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finpour 

ecrire("entrer la valeur de x : ") 
lire(x) 
i 4* 1 

TantQue ( i < n et T[i] ± x) faire 
i <- i + 1 
FinTantQue 
Si (i ± n+1) alors 

Ecrire(" l’element x se trouve dans le tableau T ") 

Sinon 

Ecrire(" l’element x ne se trouve pas dans le tableau T ") 

flnsi 

fin 

2. Dans cette question, on suppose que les variables n et T sont connues. 

l 6re version: 

Variable i: entier 
Debut 
i 4r 1 

TantQue (i<n ET T[i+1] = T[i]+1) 
i i + 1 

FinTantQue 
Si (i<n) alors 

Ecrire ("les termes du tableau ne sont pas consecut if s " ) 

Sinon 

Ecrire ( " les termes du tableau sont consecutifs ") 

FinSi 

Fin 

2 eme version ■ 

Variable i, j: entier 

Debut 

j 1 

Pour i allant de 1 a n-1 

Si (T [ i+1 ] + T [ 1 ] +1) alors 
j <6- 0 
i <r n-1 

FinSi 
FinPour 
Si ( j =1 ) alors 

Ecrire ("les termes du tableau sont consecutifs") 

Sinon 

Ecrire ("les termes du tableau ne sont pas consecutifs") 

Finsi 

Fin 
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5.5 Examen d’informatique (I 2 SMP-SMC) session de Juin 2005 
Exercice 1 : 

Ecrire un algorithme qui demande Page d’un enfant a l’utilisateur. Ensuite, il Pin forme de sa 
categorie : 

• La categorie d’un enfant est "Poussin" si 6 ^ age < 8 , 

• La categorie d’un enfant est "Pupille" si 8 ^ age < 10, 

• La categorie d’un enfant est "Minime" si 10 ^ age < 12, 

• La categorie d’un enfant est "Cadet" si age ^ 12. 

Exercice 2 : 

3. Ecrivez un algorithme qui lit un entier n et compte le nombre de 1 dans la 
representation binaire de cet entier. 

4. Ecrivez un algorithme qui lit un entier n (la faille du tableau), le tableau d’entiers T de 
n elements, 1’ entier x et indique le nombre de fois que x figure dans le tableau T. 

5. Ecrivez une procedure qui prend pour arguments un entier n (la faille du tableau), le 
tableau de reels T et affiche le plus grand element du tableau T ainsi que sa position 
dans le tableau. (On suppose que le tableau T est forme d’ elements tous distincts) 

Exercice 3 : 

Soit la fonction mystere ecrite en Maple suivante : 

> mystere := proc(L,t) 
local u, i; 
u : = 0 ; 

for i from 1 to nops (L) do 
u : = u*t + L [ i ] ; 

od; 

u; 

end; 

6. Que valent mystere ([ 1 , -1 , 0 , 2 ], 3 ), mystere ([ 1 , 0 , 1 , 1 , 1 ], 2 ) et 
mystere ( [a, b, c] ,x) (donner la valeur de u a chaque etapes de la boucle) ? 

7. Que fait ce programme ? 

8. Que calcule la procedure my st ere ( L , t ) si les elements de la liste L sont tous 
strictement inferieur at? 

Exercice 4 : 

Soit T un tableau qui contient n valeurs reelles tries dans l’ordre croissant. Ecrire une 
procedure qui prend coniine parametre le Tableau T, l’entier n (la faille de T) et un nombre 
reel x, et elle effectue 1’ insertion de x dans le tableau T, de telle maniere que le tableau T 
reste trie. 

Exemple : Soit le tableau T de 8 nombres tries dans lequel on desire inserer le nombre 4 0 : 



Le resultat est un tableau T de 9 nombres toujours tries : 



Le Langage de programmation Maple 


42 






Mohamed El Marraki 


5.6 Examen d’informatique (I 2 SMP-SMC) session de Juillet 2005 


Exercice Exercice 1 : (4pts) 

Ecrivez un algorithme qui effectue la lecture de la moyenne d’un etudiant et affiche sa 
mention sachant que : 

- la mention "Tres bien" est decernee pour une moyenne comprise entre 16 et 20 (16< 

moyenne < 20) 

- la mention "Bien" est decernee pour une moyenne comprise entre 14 et 16 (14< moyenne 
<16) 

- la mention "Assez bien" est decernee pour une moyenne comprise entre 12 et 14 (12< 
moyenne < 14) 

- la mention "Passable" est decernee pour une moyenne comprise entre 10 et 12 (10< moyenne 
< 12 ) 

Exercice 2 : (7pts = 3pts + 4pts) 

1. Un nombre entier p (different de 1) est dit premier si ses seuls diviseurs positifs sont 1 
et p. Ecrivez un algorithme qui effectue la lecture d’un entier p et determine si cet 
entier est premier ou non. 

2. Ecrivez un algorithme qui lit la faille d’un tableau n, le tableau T, une valeur x, et il 
indique ensuite si 1’ element x appartient ou non au tableau T. 

Exercice 3 : (5pts = 4pts + lpts) 

Soit la fonction mystere ecrite en Maple suivante : 

mystere := proc(a,b) 
local r ; 

while ( b > 0 ) do 

r := irem (a, b) ; # le reste de la division de a par b # 

a : = b; 
b : = r; 

od; 

a; 

end; 

1. Que valent mystere ( 35 , 15 ), mystere ( 132 , 8 1 ) et mystere ( 55 , 34 ) 

(donner les valeurs que prennent les variables a, b et r dans chacun des cas) ? 

2. Que fait ce programme ? 

Exercice 4 : (4pts) 

Ecrivez une procedure qui prend pour parametres l’entier n et le tableau de reels T, et qui 
affiche le produit du plus petit element du tableau T avec le plus grand element du tableau T. 

Exemple : Si T est le tableau suivant : 


-4 

0 

6 

1 

3 

5 

-8 

2 


Le resultat affiche sera - 8 * 6 =- 48 . 
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